home *** CD-ROM | disk | FTP | other *** search
-
- ; CVA_FFPTODP.A
- ;
- ; D0 = arg (4 bytes)
- ;
- ; result in D0/D1
- ;
- ; (c)Copyright 1990, Matthew Dillon, All Rights Reserved
-
- section text,code
-
- xref _MathTransBase
- xref _MathIeeeDoubTransBase
-
- xref _LVOSPTieee ; MathTransBase (ffp -> ieee.sing)
- xref _LVOIEEEDPFieee ; MathIeeeDoubTransBase (sing->doub)
- xdef __cvffptodp_a
-
- __cvffptodp_a move.l A6,-(sp)
- move.l _MathTransBase(A4),A6
- ; FFP value in D0
- jsr _LVOSPTieee(A6) ; convert to ieee.sing
- move.l _MathIeeeDoubTransBase(A4),A6
- jsr _LVOIEEEDPFieee(A6) ; convert ieee.sing->ieee.doub
- move.l (sp)+,A6
- rts
-
- END
-
-